home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / -archivi / -recent2 / amicad_2.00.lha / AmiCAD / ARexx / Conv2META.AmiCAD < prev    next >
Text File  |  1999-02-21  |  4KB  |  144 lines
  1. /* Conversion du fichier courant sous le format META puis
  2. conversion à l'aide du format spécifié à l'aide de MetaView.
  3. Version 1.00: 18 février 1998, Chez Corbin
  4. Version 1.01: 21 février 1999, modif appel REQFILE
  5. $VER: Conv2META 1.01 (© R.Florac, 21/02/99) */
  6.  
  7. METAVIEW = 'DP:Système/MetaView/MetaView'
  8.  
  9. options results
  10.  
  11. SIGNAL ON FAILURE
  12. signal on error
  13. signal on syntax
  14.  
  15. APLPORT = ADDRESS()
  16.  
  17. 'SAVE("RAM:AmiCAD.FILE")'
  18. fichier="RAM:AmiCAD.META"
  19.  
  20. 'LOCK(-1):TITLE("Conversion au format META en cours...")'
  21. arguments=" RAM:AmiCAD.FILE TO "||'"'||fichier||'"'||" FORCE QUIET LIBS=Travail:AmiCAD/Bibliothèques"
  22. address command
  23. 'run Travail:AmiCAD/AmiCAD2META' arguments
  24.  
  25. do NUMBER = 0 to 20
  26.     if (SHOW(PORTS,"METAVIEW." || NUMBER) = 0) then
  27.     leave
  28. end
  29.  
  30. /*
  31. ** Searching for MetaView: 1. our path above,
  32. **    2. path in env:MetaView.path
  33. ** or 3. you must have a assign "MetaView:"
  34. */
  35.  
  36. if (EXISTS(METAVIEW)=0) then do
  37.     if OPEN("MVVAR","env:MetaView.path","Read") then do
  38.     METAVIEW = READLN("MVVAR")
  39.     end
  40.     if (EXISTS(METAVIEW)=0) then do
  41.     METAVIEW = "MetaView:MetaView"
  42.     end
  43. end
  44.  
  45. /*
  46. ** Enable warnings for WaitForPort
  47. */
  48.  
  49. OPTIONS FAILAT 5
  50. ADDRESS COMMAND
  51.     "run " || METAVIEW || " NODISPLAY"
  52.     MVPORT = "METAVIEW." || NUMBER
  53.     "WaitForPort " || MVPORT
  54.  
  55. OPTIONS FAILAT 21
  56.  
  57. ADDRESS(APLPORT)
  58.  
  59. titre='"Format sauvegarde"+CHR(10)+"AMF (Amiga MetaFile)"+CHR(10)+"WMF (Windows MetaFile)"+CHR(10)+"DR2D (Drawing 2D)"+CHR(10)+"CGM (ComputerGraphicMetafile)"+CHR(10)+"GEM"+CHR(10)+"EPS (Encapsulated PostScript)"+CHR(10)+"AI (Adobe Illustrator)"+CHR(10)'
  60. titre=titre||'+"HPGL (Hewlett-Packard Graphics Language)"+CHR(10)+"ILBM (InterLeaved BitMap)"+CHR(10)+"JMF (Java MetaFile)"+CHR(10)+"FIG"+CHR(10)+"META"+CHR(10)'
  61. 'TITLE(""):SELECT('titre')'
  62. CHOICE = result
  63. if result>0 then do
  64.     extension.1 = "AMF"
  65.     extension.2 = "WMF"
  66.     extension.3 = "DR2D"
  67.     extension.4 = "CGM"
  68.     extension.5 = "GEM"
  69.     extension.6 = "EPS"
  70.     extension.7 = "AI"
  71.     extension.8 = "HPGL"
  72.     extension.9 = "ILBM"
  73.     extension.10= "JMF"
  74.     extension.11= "FIG"
  75.     extension.12= "META"
  76.     'REQFILE("Fichier 'extension.CHOICE' destination?","RAM:", FILEPART("")+".'extension.CHOICE'")'
  77.     FILENAME=result
  78.     if FILENAME~="" then do
  79.     if POS(extension.CHOICE,FILENAME)=0 then FILENAME=FILENAME||"."||extension.CHOICE
  80.     FILENAME='"'||FILENAME||'"'
  81.  
  82.     ADDRESS VALUE MVPORT
  83.     LOAD fichier
  84.     select
  85.         when CHOICE = 1 then do
  86.         SAVE FILENAME AS AMF
  87.         end
  88.         when CHOICE = 2 then do
  89.         SAVE FILENAME AS WMF
  90.         end
  91.         when CHOICE = 3 then do
  92.         SAVE FILENAME AS DR2D
  93.         end
  94.         when CHOICE = 4 then do
  95.         SAVE FILENAME AS CGM
  96.         end
  97.         when CHOICE = 5 then do
  98.         SAVE FILENAME AS GEM
  99.         end
  100.         when CHOICE = 6 then do
  101.         SAVE FILENAME AS EPS
  102.         end
  103.         when CHOICE = 7 then do
  104.         SAVE FILENAME AS AI
  105.         end
  106.         when CHOICE = 8 then do
  107.         SAVE FILENAME AS HPGL
  108.         end
  109.         when CHOICE = 9 then do
  110.         SAVE FILENAME AS ILBM
  111.         end
  112.         when CHOICE = 10 then do
  113.         SAVE FILENAME AS JMF
  114.         end
  115.         when CHOICE = 11 then do
  116.         SAVE FILENAME AS FIG
  117.         end
  118.         otherwise do
  119.         ADDRESS COMMAND
  120.         'c:copy' " RAM:AmiCAD.META TO "||FILENAME
  121.         end
  122.     end
  123.     end
  124. end
  125. fin:
  126. ADDRESS COMMAND
  127. 'c:delete' " RAM:AmiCAD.FILE RAM:AmiCAD.META QUIET"
  128. ADDRESS(APLPORT)
  129. 'UNLOCK(-1):TITLE("")'
  130. EXIT
  131.  
  132. /* Traitement des erreurs, interruption du programme */
  133. FAILURE:
  134. syntax:
  135. erreur=RC
  136. ADDRESS(APLPORT)
  137. 'MESSAGE("Script Conv2META"+CHR(10)+"Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'"):UNLOCK(-1)'
  138. exit
  139.  
  140. error:
  141. ADDRESS(APLPORT)
  142. 'MESSAGE("Script Conv2META"+CHR(10)+"Erreur en ligne 'SIGL'"):UNLOCK(-1)'
  143. exit
  144.